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PROGRAf'I TITLE: Recomp II Keyboard Floating Point Input 
Subroutine, Variable Format 

1. PURPOSE 

1.1 To input a decimal number from the console key board and convert it to 
floating binary. The number may be an integer, fraction, mixed number, 
or any of the aforementioned with decimal exponent, 

2. RESTRICTIONS 

2.1 The input number may be composed of several parts, 

A, The sign of the number (will be assumed positive if no sign is given), 

B, The integral part of the number, 

C, A decimal point, 

D, The fractional part of the number, 

E, Press "ENTER", 

F, The sign and (integral) value of the power of ten by which the number 
is to be multiplied, 

G, Press "ENTER", 

H, Press "START", 

Not all these parts are required for every input. The following combinations 
are acceptable: 

ABCDEFGH, ABCDEH, ABCEFGH, ABCEH, ACDEFGH, ACDEH, BCDEFGH, BCDEH, BCEFOH, 
BCEPI, CDEFGH, CDEH, /^ Centers previous word over again) 

2.2 If an error is discovered before "START" has been pressed, hit the "CLEAR", 
and start over, 

2.3 The digits are displayed as you key them in. Before and after the number 
is keyed in, "+0" is displayed. 

2.4 The program will accept any size number and exponent so long as the exponent 
does not exceed eleven decimal digits. If the number contains more than 
fourteen digits, plus a decimal point, you will lose the left-hand digits 
in the display, but the number will be stored correctly, 

2.5 The routine only accepts one input number at a time and exits after "START" 
has been pressed, leaving result as specified in (4,3), 

2.6 No output - the number is stored in memory in the location specified. 
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2.7 Don't type too fast; you may lose a digit. 

3. METHOD 

3.1 The mantissa of the resultant floating binary number is accurate to at 
least 3JI bits. 

3.2 The number is formed by adding in floating point form each new digit to 
the already formed number, after adjusting the power of ten. 

before decimal point: 10 N •»• d -^ N 

after decimal point: 10 D vD, N + d/Q -^ N 

3.3 The final answer is formed from successive multiplications (or divisions) 
of the result of (3»2) by numbers, P, of the form 10^2.*^^ The binary 
representation of the exponent is scanned from right to left; as each bit 
is examined, P is squared. If the bit is a "1", the current answer is 
multiplied by the new value fdr P; if not the next bit is examined. 



N. P 10<2">> N 



4. USAGE 

4.1 Entrance - transfer to location 0020.0 

4.2 Exit - +T>MI! xxxx.x -»• 57 0144.0 in location 0014; 

you specify xxxx.x. (STA 0014.0) 

4.3 DATA LOCATION is specified by programmer in location 0004 in form 
"fOO 0000.0 00 yyyy»0. (STA 0004.1) 

4.4 Storage Locations 

0000 - 0150 Relocatable 
Uses both loops. 

4.5 No sel|5e switches used. 



.Pi\G:EL^. 



OOOe-.O -+57-.-OV0G:.-O - - T-RA 
+40.0016.0 ARS 



XXX) 1 ^O ^l|^-^0ll^V - - S-TA ■ 
+1^0.0015.0 ARS 



0002.0 +00.0000.0 - 
-00.001 ^ .0 



"ooo3.~o '+5I*"o13?*9"T;5^ 



+«?7.01b0.0 TRA 



000^.0 +00.0000.0 

«00. 0000. 



0005-.-0 ~+6i|^.~00to ; 0" - -CT t- 
+57*7760.0 TRA 



0006.0 +6H. 0050.0 CTL 
+5 7 . 77 60.1 — fRfr 

0007 .tD +03 .7761 ;1 ■ - -SUB- 
+57.776U.O TRA 



0010.0+36.7770.1 DIS 
+oo.-m 33i GtA- 

OOHvO' +4i i-0O4-ViO - AbS- 
+71 .7761 .0 RDY 



0012.0 +01.0133.0 ADD 
+52.^0005 ; 0- - -TRP- 

0013.0- +01. 01 -jHiO—ADD- 
+50.776^.1 TRZ 



001 H.O +51.0027.1 TRN 

" ~ " ~ +57.01 ifi; ;o" " tra- 

+30.7772*0 '^CA 



0016.0 +07.7776.0 FMP 

"" ' -"+w;77t^.o" "TAD- 

0017.0- +35-7772-.0 -TST 

+57.0006.0 TRA 



0020.0 +00.000^^.0 CLA 
" -+in".002if .0" - 7(tS 



T5021.0 +i|-2.000i|-.U Si A 
+00.0135.0 CLA 

0022.0 +H2. 00^^2.0 STA 
- -+41 -.-0024-.-0 - - AtS 



0023 •O +42.0043.0 STA 

_. .__+3P_._Ol35_._0__f_CA ^?AGE_4 



0024.0 +35.0046.0 FST 
-OCJ.1 



-+oa.or36.~o--CL-A 



002^.0 +4^.0043.1 STA- 

+42.0015.0 STA 



0026.0 +66.0030.0 CTV 

+5^V6oro;o"cTL" 



0027.0 +57.7760.0 TRA 



""ME. 



20.0 HTR 



0030 . +03 . 1 463 . SUB 

— +67.3500.0 Cl-V 



003 r;0 +^7:3567-. 0" - XFV 

+62.2000. 0_CFy 



00^2.0 -00.0000.0 

-00.0000.0 



003370" -OD';oDoo;o""--- 

-00.0000.0 



0034.0 +00.0000.0 

« 00. 0000.1 — — ^ 



-O035-.6-+oOi^0oa.~e 

-00.0023.0 — 



0036.0 +50.0000.0 TRZ 
» 00. 0000.0 — -'— 



0037-.'0 -+oa.i30oo.-o- - ~---*^- 

-00.0002.0 — 



oo4o.o +50.00 



+50.0075.1 TRZ 

+o5:oo3^;o""^B- 



'ao4r."0"+5Xj.~oo2€.~T "TRZ- 

+03.003^*0 SUB 



0042.0 +50.01 40.0 TRZ 

" ~ +03 . oo3if;o" " "SUB- 
;o +5o;oo2t;t"trz" 

+57*0077*0 TRA 



0044.0 +6^.0060.0 CTL 

' ' ' +57.776Dvr " tra 

.0 +64.oo7cr<;o"CTi: 

+57*7701 *1 TRA 



0046.0 +40.0000.0 ars 
-00.0000.0 "-i-^ 



00^^7.0 -+00.000^.-0 - - ----= 

-00.0000.1 
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CX)50.0 +00.0026.1 CLA 

-■ ^-— -+0O.77T1-.-0--C1-A- 



uu^i.o +40.00^^3.0 — n^s- 
+Hj_.qoo3_._o__ALS 



+00.7770.0 CLA 



0053.0 +51 .0007.0 TRN 



005^^.0 +in .000i]-.0 ALS 

" +^0.-777o;or-STO- 



uut)^.0 +00.777^.0 — ctP: 



+i^i.6d66.o_ ALS 

0056.0 +01 .7771 .0 ADD 

- - - +in-."6ooii^;o— Ats- 



uus/.o +60. 777 1. c 
+57.00^6.1 



STQ 



+57.0026.1 TRA 



0060.0 +00.0107.0 CLA 
+30.00^6.0 — FGA- 



i3Q6i .0 +07i 77-76i:e--FMP- 

+35.OOH6.O FST 

0062.0 +30.7774.0 FCA 
+4^.0000.0 TMM 



-oo63r.-o-+OT.-oo46iO- -i==DV- 

+04.7772.0 FAD 



0064.0 +35.7772.0 FST 
— ■ +5Y.UUO6.O — TOT 

'oo?5;o~+64:oiuo;o'-'CTL- 

±5T-n6q,L.TRA 

0066.0 +.'^4.7772 >0 FCS 
+57^7753713 — TRTT 



'oo'67.o~+64;orro;o"~"CTL' 

+5 7. 7760 . _ TRA 



0070.0 +00.0004.0 CLA 
- _ . +0r ."OT 37. - - At)D - 

0071 "♦ "+€a;ooo4^. 0" 3T0 

+00.01 4l.O CLA 



0072.0 +42.0015.0 STA 
^ +4F.0043.-T--STA 

tx)73 ."O - +oa.-O05O-.i3 — c-l-a 

+42.0042.0 STA 



007^.0 +00.0002.0 CLA PAqe 6 

+5bV777^r;o' STO 

0075 . +57.0006.0 TRA - - - - - - - - - - 

+02.7770.0 CLS 



0076.0 +60.7770.0 STO 
+57VO026.T "TRA 



0077. +36.'C)OOdVO ' ■ DTS 
+77>0026.1 HTR 



0100.0 +00.0000.0 CLA 
+00.0004.0 "CLA" 



0101 .0 +42.7753.0 5TT 
+00.7770.0 CLA 

0102.0 +51 .0066.0 TRN 
+30:7772.0 TCA 



0103.0 +35.0000.0 FBT 
+00.0142.0 CLA 



0104.0 +42.0043.1 STA 
+42.0042;0-"^^TA" 



0105.0 +00.0060.0 — etA- 

+42.0043.0 STA 



0106.0 +00.0136.0 CLA 

~ +57.-ee55.-> - -tra- 



0107.0 + 64.0100.0 — e^Hr 
+57* 7763.1 TRA 



0110.0 +00.0131.0 CLA 
+03.7773.0 — SOB" 

"01 1 i7O"+^T;oo0r;o~ " -Ats- 

+^2.7762.1 __STA 



0112.0 +00.7772*0 CLA 
+40. 0000. U AKS 



01 13 .0 ■+Sj;777?;o— STO" 

+00,0004.0 CLA 



oil If, +40.0024.0 ARS 
+42.0121.1 STA 



01 15.0 +42.01" 2|". T " BTA 



0116.0 +64.0120.0 CTL 
+00.7770.0 CLA 

01 f 7.0 +52 . nS -S " TK 

' +57.6127.0 TRA 



0120.0+00.7772.0 CLA PAGE 7 
-+3J.tKl)3ifVO--OT '" 

01 21 .0 +50.776 J. - TRZ - - ^ ^ 

+30.0000.0 FCA 

0122.0 +07.7776.0 FMP 
4.35 .0000.6 FSt 

0123.0 +00.7772.0 "CLA 

+UQ.Q0Q1 .0 ARS 

OI2H.O +50.0021.1 TRZ 

+6o;7772;o-"-STO- 

01 25.-0 +30 .-7776.0 FCA- 

+07.7776.0 FMP 



0126.0 +35.7776.0 FST 
+57. 7760.0 TRA- 

OT 27. +00 .01 k^ : 0" ■ CLA- 
+01 .7762.0 ADD 



0130.0 +60.7762.0 STO 

1 31 .0 +00.0000.0 — *— - 
-00.0023.1 



0132.0 +60.000if.O STO 
-- - ~— +57^0O^1"^1"~~TRA" 



0133.0 -00.0000.0 — ""•»- 

-00.0015.0 -— 

OI3H.O +00.0000.0 

-txj;ooo5;0-~---- 



0135.0 +00.01 HU.U CLA 
±P0-?P_2lfj„.._CLA_. 

0136.0 +00.7765.1 CLA 

"" +oo:6o77*^"''CLA"- 



0137.0 +00. 0002. U COT 
-00.0000.0 



01 1^0.0 +6^^.0070.0 CTL 
+57.7761.1 TRA- 



01 41 vo "+oa;ooW;o- - rt: a 

+00.0065.0 CLA 



01^^2.0 +OO.OOH5.O CLA 
+OO.OO67.U CLA 

01 i^3 .0 -0?. oooo.-o - ~ ----- 

-00.0000.0 — - 

Olif^.O +H1.OOOI .0 ALS 
+60.7774.0 STO 



'^'^''^'mMj'^'^ 
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01 1^6.0 +i^o. 0000.0 ars 

-00. 0000.0 — 



"OT^yvo" +00 ."0000.0 -"-- 

-00.0000.1 ™ 



